home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD35782242000.psc / Balloon Mod.bas next >
Encoding:
BASIC Source File  |  2000-01-29  |  405 b   |  12 lines
  1. Attribute VB_Name = "Module1"
  2. Declare Function SystemParametersInfo Lib _
  3. "user32" Alias "SystemParametersInfoA" (ByVal uAction _
  4. As Long, ByVal uParam As Long, ByVal lpvParam As Any, _
  5. ByVal fuWinIni As Long) As Long
  6.  
  7. Declare Function sndPlaySound Lib "winmm" Alias "sndPlaySoundA" _
  8.     (ByVal lpszSoundName As String, ByVal uflags As Long) As Long
  9.  
  10. Public Popup, Win, Time, High As Integer
  11.  
  12.